with generic_stack;
with ada.text_io;
use ada.text_io;

procedure test_stack is

    procedure print (item : in integer) is
    begin
	put_line(integer'image(item));
    end print;
    package int_stack is new generic_stack(integer, 15, print);
    use int_stack;

    stack1, stack2 : stack_a;
    int : integer;
begin
    stack1 := new stack;
    stack2 := new stack;
    push(stack1, 2);
    push(stack1, 0);
    push(stack2, 8);
    push(stack2, 6);
    pop(stack2, int);
    print(int);
    print(len(stack2));
    print(len(stack1));




end test_stack;
